0 REM SOUND THINGS (F. VANZEIST 3/85) : 1 : 2 REM 28 STATEMENTS, 4 FUNCTIONS 3 : 4 REM KEYWORD CHARACTERS: 126 5 : 6 REM KEYWORDS #085 TO #116 : 7 : 8 REM================================== 9 : 123 .ASC "CLESI[196]FRE[209]PUWI[196]FIFRE[209]" 124 .ASC "ADPU[204]ADSA[215]ADTR[201]" 125 .ASC "NOWA[214]NO[201]PU[204]" 126 .ASC "SA[215]TR[201]TES[212]" 127 .ASC "RIN[199]SYN[195]GAT[197]" 128 .ASC "AT[212]DE[195]SU[211]" 129 .ASC "RE[204]RESO[206]VO[204]FIL[212]" 130 .ASC "TRDOF[198]TRDO[206]H[208]" 131 .ASC "B[208]L[208]" 617 .ASC "POT[216]POT[217]" 618 .ASC "OSC": .BYTE $B3 619 .ASC "ENV": .BYTE $B3 1123 .WORD CLESI-1,FRQ-1,PUWI-1,FIFRE-1 1124 .WORD ADWAV-1,ADWV1-1,ADWV2-1 1125 .WORD NUWV4-1,NUWAV-1,NUWV1-1 1126 .WORD NUWV2-1,NUWV3-1,WAVBIT-1 1127 .WORD WVBIT1-1,WVBIT2-1,WVBIT3-1 1128 .WORD ASSET-1,DRSET-1,AST1-1 1129 .WORD DRT1-1,RVSET-1,RVT1-1,FILT-1 1130 .WORD THIRD-1,THRD1-1,FLSET-1 1131 .WORD FLT1-1,FLT2-1 1617 .WORD POTS-1,PTS1-1 1618 .WORD PTS2-1 1619 .WORD PTS3-1 6746 GETVOI JSR $B79E 6748 CPX #8 6750 BCS ILLQTY 6752 STX VOICTR 6754 RTS 6756 ; 6758 GETWRD JSR $AEFD 6760 JSR $AD8A 6762 JSR $B7F7 6764 LDA #DIRECT 6770 STA SBYT3+2 6772 RTS 6774 ; 6776 LONYB JSR $AEFD 6778 LNYB1 JSR $B79E 6780 CPX #$10 6782 BCS ILLQTY 6784 RTS 6786 ; 6788 HINYB JSR $AEFD 6790 HNYB1 JSR LNYB1 6792 TXA 6794 ASL 6796 ASL 6798 ASL 6800 ASL 6802 TAX 6804 RTS 6806 ; 6808 GETBIT JSR $AEFD 6810 GBIT1 JSR $B79E 6812 CPX #0 6814 BNE GBIT2 6816 STX NEWVAL 6818 GBIT2 CPX #2 6820 BCS ILLQTY 6822 RTS 6824 ; 6826 DIRECT LDA $14 6828 STA IMSID,Y 6830 STA $D400,Y 6832 LDA $15 6834 STA IMSID+1,Y 6836 STA $D401,Y 6838 RTS 6840 ; 6842 BITNYB LDA IMSID,Y 6844 AND PRTECT 6846 ORA NEWVAL 6848 STA IMSID,Y 6850 STA $D400,Y 6852 RTS 6854 ; 6856 ILLQTY JMP $B248 6858 ; 6860 SIDBYT LDA #BITNYB 6866 STA SBYT3+2 6868 SBYT1 STY VOINDX 6870 LDX #3 6872 SBYT2 LSR VOICTR 6874 BCC SBYT4 6876 LDY VOINDX 6878 SBYT3 JSR $0000 6880 SBYT4 LDA VOINDX 6882 CLC 6884 ADC #7 6886 STA VOINDX 6888 DEX 6890 BNE SBYT2 6892 RTS 6894 ; 6896 EORMSK TXA 6898 EOR #$FF 6900 EMSK1 STX NEWVAL 6902 STA PRTECT 6904 RTS 6906 ; 6908 CLESI LDY #$19 6910 LDA #0 6912 CSID1 STA IMSID,Y 6914 STA $D400,Y 6916 DEY 6918 BPL CSID1 6920 RTS 6922 ; 6924 FRQ JSR GETVOI 6926 JSR GETWRD 6928 LDY #0 6930 JMP SBYT1 6932 ; 6934 PUWI JSR GETVOI 6936 JSR GETWRD 6938 LDA $15 6940 CMP #$10 6942 BCS ILLQTY 6944 LDY #2 6946 JMP SBYT1 6948 ; 6950 FIFRE JSR $AD8A 6952 JSR $B7F7 6954 LDX #0 6956 FFRE1 ASL $14 6958 ROL $15 6960 BCS ILLQTY 6962 INX 6964 CPX #5 6966 BNE FFRE1 6968 FFRE2 LSR $14 6970 DEX 6972 BNE FFRE2 6974 LDY #$15 6976 JMP DIRECT 6978 ; 6980 ADWAV LDX #$40 6982 .BYTE $2C 6984 ADWV1 LDX #$20 6986 .BYTE $2C 6988 ADWV2 LDX #$10 6990 LDA #$7F 6992 BNE (null)WAVE 6994 ; 6996 NUWAV LDX #$80 6998 .BYTE $2C 7000 NUWV1 LDX #$40 7002 .BYTE $2C 7004 NUWV2 LDX #$20 7006 .BYTE $2C 7008 NUWV3 LDX #$10 7010 .BYTE $2C 7012 NUWV4 LDX #0 7014 LDA #$0F 7016 ; 7018 (null)WAVE JSR EMSK1 7020 JSR GETVOI 7022 LDY #4 7024 JMP SIDBYT 7026 ; 7028 WAVBIT LDX #8 7030 .BYTE $2C 7032 WVBIT1 LDX #4 7034 .BYTE $2C 7036 WVBIT2 LDX #2 7038 .BYTE $2C 7040 WVBIT3 LDX #1 7042 JSR EORMSK 7044 JSR GETVOI 7046 JSR GETBIT 7048 LDY #4 7050 JMP SIDBYT 7052 ; 7054 ASSET LDY #5 7056 .BYTE $2C 7058 AST1 LDY #6 7060 STY VOINDX 7062 JSR GETVOI 7064 JSR HINYB 7066 LDA #$0F 7068 BNE DRT2 7070 ; 7072 DRSET LDY #5 7074 .BYTE $2C 7076 DRT1 LDY #6 7078 STY VOINDX 7080 JSR GETVOI 7082 JSR LONYB 7084 LDA #$F0 7086 DRT2 JSR EMSK1 7088 LDY VOINDX 7090 JMP SIDBYT 7092 ; 7094 RVSET JSR HNYB1 7096 LDY #$17 7098 LDA #$0F 7100 BNE RVT2 7102 RVT1 JSR LNYB1 7104 LDY #$18 7106 LDA #$F0 7108 RVT2 JSR EMSK1 7110 JMP BITNYB 7112 ; 7114 FILT JSR LNYB1 7116 JSR EORMSK 7118 JSR GETBIT 7120 LDY #$17 7122 JMP BITNYB 7124 ; 7126 THIRD LDX #$80 7128 .BYTE $2C 7130 THRD1 LDX #0 7132 LDA #$7F 7134 LDY #$18 7136 BNE RVT2 7138 ; 7140 FLSET LDX #$40 7142 .BYTE $2C 7144 FLT1 LDX #$20 7146 .BYTE $2C 7148 FLT2 LDX #$10 7150 JSR EORMSK 7152 JSR GBIT1 7154 LDY #$18 7156 JMP BITNYB 7158 ; 7160 POTS LDX #0 7162 .BYTE $2C 7164 PTS1 LDX #1 7166 .BYTE $2C 7168 PTS2 LDX #2 7170 .BYTE $2C 7172 PTS3 LDX #3 7174 LDY $D419,X 7176 JMP $B3A2 7178 ; 7180 IMSID *= *+$19 7182 NEWVAL *= *+1 7184 PRTECT *= *+1 7186 VOINDX *= *+1 7188 VOICTR *= *+1 7190 ;